home *** CD-ROM | disk | FTP | other *** search
- ; $VER: PaybackDemo Update Version 1.2 (23 February 2001)
- ; © James Daniels/Apex Designs
-
- (set #installdrawer (cat "Please choose the drawer where the Payback playable demo is installed."))
-
- (set #installdrawer-help (cat "Please select the directory which contains the demo version of Payback that you wish to update."))
-
- (set #notfound (cat "\nThis does not appear to be a valid Payback playable demo installation.\nPlease choose another drawer."))
-
- (set #install-all (cat "Updating files..."))
-
- (set #finished-message (cat "\nYour copy of the Payback playable demo has been successfully updated."))
-
- (set destdir "RAM:")
-
- (while (= (exists (tackon destdir "PaybackDemo.exe")) 0)
- (
- (set destdir
- (askdir
- (prompt #installdrawer)
- (help #installdrawer-help)
- (default "RAM:")
- (disk)
- )
- )
-
- (if (= (exists (tackon destdir "PaybackDemo.exe")) 0)
- (message #notfound)
- )
- )
- )
-
- (complete 10)
-
- (copyfiles
- (prompt #install-all)
- (source "Files/")
- (pattern "#?")
- (dest destdir)
- )
-
- (complete 100)
-
- (message #finished-message)
-
- (set @default-dest destdir)
-